home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / earcd / dev / amos / moreusel.lha / GF2Converter.AMOS / GF2Converter.amosSourceCode
AMOS Source Code  |  1997-04-18  |  1KB  |  49 lines
  1. F$=Fsel$("","","Select an IFF-Picture!","")
  2. 'F$="dh2:amosgfx/gf2Test3.iff" 
  3. Open In 1,F$
  4.   LE=Lof(1)
  5. Close 1
  6. Reserve As Work 9,130+LE
  7. ST=Start(9)
  8. Bload F$,ST+130
  9. Loke ST, Extension_8_0998("GFIF")
  10. Screen Open 0,320,200,2,0
  11. Curs Off : Flash Off : Paper 0 : Pen 1
  12. Input "Author of Level: ";N$
  13. Locate 0,2 : Print "Enter TG in front!" : Locate 0,1
  14. Input "Enter Levelname: ";T$
  15. Poke$ ST+4,N$+Chr$(0)
  16. 'Doke ST+34,-1 
  17. Doke ST+34,300
  18. Doke ST+112,-1
  19. Load Iff F$,0
  20. Screen Display 0,112,40,336,256
  21. Wait Vbl : Limit Mouse 
  22. L=92 : Y=0
  23. Do 
  24.   Multi Wait 
  25.   MK=Mouse Key : XM=X Screen(X Mouse) : YM=Y Screen(Y Mouse)
  26.   If MK
  27.     If L=108
  28.        Extension_8_1016 0,YM To 351,YM,1
  29.       Repeat : Multi Wait : Until Mouse Key=0
  30.       Loke ST+L,YM : Add L,4
  31.     Else 
  32.       Colour 0,$FFF
  33.       Loke ST+L,XM+112 : Loke ST+L+4,YM : Add L,8
  34.       Repeat : Multi Wait : Until Mouse Key=0
  35.       Colour 0,0
  36.     End If 
  37.   End If 
  38.   Exit If L=112
  39.   I$=Inkey$
  40.   If I$=Cdown$ and Y<Screen Height-256 Then Add Y,8
  41.   If I$=Cup$ and Y>0 Then Add Y,-8
  42.   Screen Offset 0,0,Y
  43. Loop 
  44. Doke ST+128,Screen Height
  45. Screen Close 0
  46. F$=Fsel$("DH1:",T$+".GFB","Enter the target","Levels-Directory")
  47. If F$="" Then End 
  48. 'Wsave "Dh2:Games/Misc/Levels/"+T$+".GFB",9
  49.  Extension_8_0472 F$,9